* lisp/progmodes/etags.el (tags-file-name): Mark safe if stringp (Bug#6733).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a29c7040d226a6d418ff16f6d7c168a67b1fc4e1..54dde2552508531f8a479ba9be4f3f9a56b4d647 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-14  Tom Tromey  <tromey@redhat.com>
+
+       * progmodes/etags.el (tags-file-name): Mark safe if stringp
+       (Bug#6733).
+
 2010-08-14  Eli Zaretskii  <eliz@gnu.org>
 
        * mouse.el (mouse-yank-primary): Fix mouse-2 on MS-Windows and

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 4f0fcd77ab5d73f65b7edf4931c239560635773f..2018a71574ec4d2ada7b55a053bb600d4a88f005 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -40,6 +40,7 @@ If you set this variable, do not also set `tags-table-list'.
 Use the `etags' program to make a tags table file.")
 ;; Make M-x set-variable tags-file-name like M-x visit-tags-table.
 ;;;###autoload (put 'tags-file-name 'variable-interactive (purecopy "fVisit tags table: "))
+;;;###autoload (put 'tags-file-name 'safe-local-variable 'stringp)
 
 (defgroup etags nil "Tags tables."
   :group 'tools)